<%
function fn_multiselect(strsql,nome)
	Dim rsmulti
	Dim retorno
	Dim checked
	retorno = ""
	set rsmulti = getRs(strsql)
	if not rsmulti.eof then
		if rsmulti.Fields.count <=3 then
			while not rsmulti.eof
				checked = ""
				if rsmulti.Fields.count = 3 then
					checked = rsmulti(2)
				end if
				retorno = retorno & "<span class='opt'><input class='"&nome&"' name='"&nome&"' type='checkbox' value='"&rsmulti(0)&"' "&checked&" /><span class='txt'>"&rsmulti(1)&"</span></span>"
				rsmulti.movenext
			wend
		end if
	end if
	rsmulti.close
	fn_multiselect = retorno
end function
%>